********************************************************************************************************************************
***   Replication file for:                                                                                                  ***
***   Berbee, P., Braun, S. T. and Franke, R. (2024). Reversing Fortunes of German Regions, 1926-2019. JoEG.			     ***
***   							                                                                                             ***
***   SCRIPT: 	_x2a_preparation_census_1882.do																				 ***	
***   PURPOSE: 	Reads in and prepares data from the 1882 occupation census												 	 ***
********************************************************************************************************************************

* Preamble (unnecessary when executing run.do)
run "$reversing/scripts/programs/_config.do"

************
* Code begins
************

*** Create labels for different occupations and sectors

* Labels 1882 census 2-digit sectors

global dLandw Landw./Thierzucht/Gärtnerei
global dForstw Forstwirtschaft/Jagd
global dFische Fischerei
global dBergbau Bergbau/Hütten/Salinen
global dTorf Torfgräberei/-bereitung
global dSteine Ind.d.Steine und Erden
global dMetall Metallverarbeitung (außer Eisen) 
global dEisen Eisenverarbeitung
global dMaschinen Fert.v.Maschinen/Werkz./Apparaten
global dChemisch Chemische Industrie
global dForstwNeben Organ.Leuchtst./Fette/Öle/Firnisse
global dTextil Textilindustrie
global dPapierLeder Papier-/Lederindustrie
global dHolz Holz/Schnitzstoffe
global dNahrung Nahrung/Genussmittel
global dBekleidung Bekleidung/Reinigung
global dBaugewerbe Baugewerbe
global dPolygr Polygraphisches Gewerbe
global dKunst Künstler/künstlerisch. Gewerbe
global dFabrikanten Fabrikanten/Fabrikarbeiter
global dHandel Handelsgewerbe
global dVersicherung Versicherungsgewerbe
global dLandverkehr Landverkehr
global dWasserverkehr Wasserverkehr
global dBeherbergung Beherbergung/Erquickung
global dHauslDienstl Häusl.Dienstleist./Tagelöhner
global dStaats Staat/Gemeinden/Kirchen/freie Berufe
global dOhneBeruf Ohne Beruf/Berufsangabe
global dGesamt Gesamtbevölkerung


*** Create sector shares in persons employed
import excel "$reversing/data/Berufszaehlung_1882.xlsx", sheet("Data") firstrow clear
rename Sheet1__La labor_market_id
destring labor_market_id, replace
drop A T_ID

foreach var of varlist Landw-Gesamt{
rename `var' emp_`var'_1882	
label var emp_`var'_1882 "Erwerbstätige in ${d`var'} (1882)"
}

save "$reversing/processed/intermediate/occ_census1882_emp.dta",replace


*** Create sector shares per total population (including servants and family)

*** Import data on selected 2-digit industries
import excel "$reversing/data/Berufszaehlung_1882_Summe.xlsx", sheet("Data") firstrow clear
rename Sheet1__La labor_market_id
destring labor_market_id, replace
drop A T_ID Forstw Fische Torf Steine ForstwNeben PapierLeder Holz Nahrung Bekleidung Baugewerbe Polygr Kunst Fabrikanten Versicherung Landverkehr Wasserverkehr Beherbergung HauslDienstl Staats OhneBeruf
foreach var of varlist Landw-Gesamt{
rename `var' pop_`var'_1882	
label var pop_`var'_1882 "Population in ${d`var'} (1882)"
}

save "$reversing/processed/intermediate/occ_census1882_pop.dta",replace

